home *** CD-ROM | disk | FTP | other *** search
/ Aminet 20 / Aminet 20 (1997)(GTI - Schatztruhe)[!][Aug 1997].iso / Aminet / comm / www / CountryCodes.lha / countrycodes / cedextractsuffix.rexx < prev    next >
OS/2 REXX Batch file  |  1997-06-22  |  2KB  |  58 lines
  1. /* 
  2.   Program: AWebExtractSuffix.rexx
  3.   Purpose: Extract suffix from a www/mail address obtained from the 
  4.            CygnusEd 3.5 clipboard (blockbuffer) and feed it to the
  5.            CountryCodes program. Make sure the www/mail address is
  6.            marked as a block and then copied to the blockbuffer.
  7.   Author : Paul Kolenbrander (paul@serena.iaehv.nl)
  8.   Version: 1.0
  9.   Reqs   : CountryCode 1.0 or higher and RexxMast must be running.
  10. */
  11.  
  12. OPTIONS RESULTS                             /* enable return codes      */
  13.                                             /* Get AWeb's Arexx Port    */
  14. ADDRESS 'rexx_ced' 
  15.  
  16. STATUS BLOCKBUFFER
  17. MAILADRES = RESULT
  18.  
  19. ports = SHOW('P')                           /* Get CoCo ARexx port      */
  20.    PARSE VAR ports dummy 'COCO' portnr .    /* note trailing period!    */
  21.    ADDRESS VALUE 'COCO' || portnr
  22.  
  23. /* Optionally bring CountryCodes Window to front and activate it        */
  24. WINDOW FRONT
  25. WINDOW ACTIVATE
  26.  
  27. /* Check if it's a http:// (www) address)                               */
  28. IF (UPPER(LEFT(MAILADRES,7)) == "HTTP://")
  29. THEN DO                                     /* found a WWW address      */
  30.    MAILADRES = RIGHT(MAILADRES, LENGTH(MAILADRES) - 7)
  31.    MAILADRES = LEFT(MAILADRES, POS("/",MAILADRES) - 1)
  32.    LOCATE RIGHT(MAILADRES, LENGTH(MAILADRES) - LASTPOS(".",MAILADRES))
  33. END
  34.  
  35. /* Check if it's a file:// (local address)                              */
  36. IF (UPPER(LEFT(MAILADRES,7)) == "FILE://")
  37. THEN DO                                     /* found a WWW address      */
  38.    LOCATE XXXXX                             /* Local adres. No suffix   */
  39. END
  40.  
  41. /* Check if it's suffix.domain!user or user@domain.suffix format        */
  42. IF (POS("!",MAILADRES) ~=0)
  43. THEN DO                                     /* ! (bangpath) address     */
  44.    MAILADRES = LEFT(MAILADRES,POS("!",MAILADRES) - 1)
  45.    LOCATE RIGHT(MAILADRES, LENGTH(MAILADRES) - LASTPOS(".",MAILADRES))
  46. END
  47.  
  48. IF (POS("@",MAILADRES) ~=0)
  49. THEN DO                                     /* @ type address           */
  50.    LOCATE RIGHT(MAILADRES, LENGTH(MAILADRES) - LASTPOS(".",MAILADRES))
  51. END
  52.  
  53. /* Now wait 5 seconds and push the CountryCodes window back             */
  54. ADDRESS COMMAND 'C:WAIT 5 secs'
  55. WINDOW BACK
  56.  
  57. EXIT
  58.